100 REM DEMO 1
105 GCL
107 X2=0:Y2=47
110 FOR X = 0 TO 318
114 X1=X
116 Y1=SIN(X/319*4*(null))*47+47
120 SET,X1,Y1
130 SET,X1+1,Y1
140 SET,X1,Y1+1
150 SET,X1+1,Y1+1
160 NEXT
170 LINE,0,47,319,47
180 LINE,0,48,319,48
190 FOR X = 0 TO 319 STEP 16
200 LINE,X,45,X,50
210 NEXT
220 CHAR,1,0,"[213]=SIN(WT)*[213]M",0
225 IRQ
230 PRINT"SPANNUNG AN DEN ENDEN EINER ROTIERENDEN SCHLEIFE"
240 PRINT"   U(MAX)= +14,3 V"
250 PRINT"   U(MIN)= -14,3 V"
260 PRINT"   W     =   2[255](1/T)"
280 PRINT"   T     =   0,1 S"
290 PRINT"   B     =   0,5 T"